program project1;

{$mode objfpc}{$H+}

uses
  {$IFDEF UNIX}
  cthreads,
  {$ENDIF}
  Classes, Unit1, Unit2, Unit3;

var
  User: TUser;

begin
  User := TUser.create('AAA',15);
  User.SayHello;
  ShowRttiInfo();
  User.Free;
end.

